PPPPPPPPPPPP AAAAAAAAA SSSSSSSSSSSS 
PPPPPPPPPPPP AAAAAAAAA SSSSSSSSSSSS 
PPPPPPPPPPPP AAAAAAAAA SSSSSSSSSSSS 
PRP PPP AAA AAA SSS 

PPP PPP AAA AAA SSS 

daa PPP AAA AAA SSS 

PPP PPP AAA AAA SSS 

PPP PPP AAA AAA SSS 

PPP PPP AAA AAA SSS 
PPPPPPPPPPPP AAA AAA SSSSSSSSS 
PPPPPPPPPPPP AAA ABB SSSSSSSSS 
PPPPPPPPPPPP AAA SSSSSSSSS 
PPP AAAAAAAAAAAAAAA SSS 
Ppp AAAAAAAAAAAAAAA SSS 
PPP AAAAAAAAAAAAAAA SSS 
PPP AAA AAA SSS 
PPP AAA AAA SSS 
PPP AAA AAA SSS 
PPP AAA AAA SSSSSSSSSSSS 
PPP AAA AAA SSSSSSSSSSSS 
Ppp AAA SSSSSSSSSSSS 


Qon 
AION 
COO 
QO 
QO 
AON 
QO 
QO 
QO 
CON 
OO 
AON 


AAAIAMAOAIMAIAIMAOAAAOOY 
POAIAAMQIAIMAIAAMAOMAL 
AAAOAAIMOAIAIMAAAIOANY 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
AAA AAA 
AAA ABA 
AAA Aad 
AAA AAA 
Aah AAA 
AAA AAA 
ABA ABA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AMA ADB 
ALA AAA 
AAA AAA 
AAA AAA 
ABA AAA 


LLL 

LLLLLLLLLLLLLLL 
LELLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


PPPPPPPP AAAAAA SSSSSSSS_ RRRRRRRR TTTTTTTTTT 44 a6 

PPPPPPPP AAAAAA SSSSSSSS_ RRRRRRRR TTTTTTTTTT 44 4a 

PP PP AA AA SS RR RR TT 44 44 

PP PP AA AA SS RR RR TT ah 44 

PP PP AA AA SS RR RR TT a4 ah 

PP PP AA AA SS RR RR TT 4b bu 

PPPPPPPP AA AA SSSSSS RRRRRRRR TT 4444444444 

PPPPPPPP AA Aa SSSSSS RRRRRRRR TT 4444444444 

PP AAAAAAAAAA SS RR RR TT aa 

PP AAAAAAAAAA SS RR RR TT G4 

PP AB Ab SS RR RR TT 4a eeee 
PP Aa as SS RR RR TT a& eeee 
PP AR AA SSSSSSSS RR RR TT 54 cece 
PP Aa AA SSSSSSSS RR RR TT 46 es 
LL 1111] SSSSSSSS 

LL 111! SSSSSSSS 

LL I] SS 

LL Il SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL II SS 

LL I] SS 

LL I] SS 

LELLLLLLLL II111 SSSSSSSS 

LLLLLLLLLL 1111 SSSSSSSS 


Sa ee ee ee Pee ee oe oe Ba 
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RASA AARAARARRARASARAASAARSALASELALELSALESEA SALSA REE SEES ERE E ERE ESE SEES EEE ET ES 
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oe SOF TWARE i FURNISHED al A “we el wf ySED AND rr 


TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oeRPORATiON. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS “ii 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH 


FOR THE USE OR RELIABILITY OF ITS 


Y 
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® 

® 

® 

® 

* 

® 

* 

* 

® 

C * 
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® 

® 

® 

* 

® 

® 

L * 
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® 

Lf 


LARA RRARABRAARRAAARARARAARASARLEASALASEASSE SSSR SESE REESE RRR A SERS SAREE S SERRE SO 
* 


PASS$RT_FUNC 
RUNTIME SUPPORT MODULE FOR PASCAL == SECTION 4 
VERSION V1.0-1 == OCTOBER 1979 
This module defines the following routines: 


So 


fe leleleolelelelelelelelelelelelelelelelealelelelelelelelelelelelo! 


MSG 


MSG 


pas$<math>: . number of routines to convert call by value 
to call by name for mathematical Library functions 


Written by: Hellmut Golde 15-Feb-79 
Revision history: 


MSG 


MSG 


@e ee eee eneeneennenennene * ae ee eee eneeaeeeeeeaaneanen 
ae ee eee eennenennne 


1-001 5/14/80: Paul Hohensee: add a .psect directive for the code section 
® 
1-002 11-Aug-81 Paul Hohensee. Change to general addressing of exter 


—MASBSBAABAAAASAAARALARAARARAASLALESESESASSELARSRR RARE RAR ARES S RASA RARER RRR RAR SS OO | 


title pas$rt func 
-ident ‘v04-000' 


-psect _pas$code,pic,shr,exe,nowrt 


ROUTINES TO CONVERT CALL BY VALUE (IMMEDIATE) TO CALL BY NAME 
FOR MATHEMATICAL LIBRARY FUNCTIONS 


macro Libsngl pl 
sont ry as$'pl,*m<> 
pushl (ap) move value to stack 
pushal (sp ; and address on stack 
sects Hi G*mth$'p! call library routine 
re 


0000 


3 macro to make definitions 


NOU EWN OC ODONOAUE WN 0 OONO EWN O OONOAU EWN O DOONAN EW DOONOU Sw 


PUPP BBS BB BB BE NAINA AIAI AAAI APP PONNPNUPOPONPPY 2 SO SO 


eaeenneeenreeree meme 


C 6 
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£08 28 -endm Libsngl 
44 oY ; Macro calls to create entry points for math Library functions 
0000 62° Libsngl SIN 
OooF gs Libsngl COS 
OO1E 64 Libsngl EXP 
Boge 65 Libsngl SQRT 
003C 66 Libsngl ALOG 
0048 67 Libsngl ATAN 
OOSA 68 ; od 
Boa ¢? ; td Patan. for various Pascal standard functions--used only when 
Bpea oy : functions are passed as parameters 
0000 OOSA 7: -entr asSimmABSint, “m<> 
50 04 AC DO O005C ie movl . Pap) r 
0350 iF €1 0060 7 bbc #31,70,108 
50 50 CE 0064 75 mnegl r0,r0 
04 0067 76 10$: ret 
0068 77 ; 
0000 0068 78 entry pasSimmABSreal, “m<> 
50 04 AC 50 OQ06A 79 mov f 4(ap),r 
0350 OF £1 O06E 80 bbc #15,76,10$ 
50 50 52 0072 81 mnegf r0,r0 
04 0075 Hf 10$: ret 
0076 83 ; 
0000 0076 84 sentry pas$ABSdoub, “m<> 
50 04 6C 70 0078 85 movd 4(ap),r 
03 50 OF €1 O07C 86 bbc #15,r0,10 
50 50 72 0080 87 mnegd r0,r0 
04 0083 88 10$: ret 
0084 89 ; 
0000 0084 90 entry pasSimmSQRint, “m<> 
50 04 AC O04 AC C5 0086 91 mull3 4(ap),4(ap).r 
04 008C 3 ret 
008D 93 ; 
0000 008D 94 -entry pasSimmSQRreal, *m<> 
50 04 AC 04 AC 45 OO8F 95 mulf3 4(ap),4(ap),r0 
04 0095 96 ret 
0096 97 ; 
0000 0096 98 -entry peeSsehdoys, exe 
50 04 BC 04 BC 65 0098 99 muld3 4(ap),a4(ap),r0 
04 OO9E 100 ret 
94 13] 3 
0000 oF ¢ entry pas$SimmORD, “m<> 
50 04 AC D0 QOA1 10 mov l (ap),r 
04 QOOAS 104 ret 
QOA6 105 ; ; 
0000 OOA 106 entry pasSimmCHR, “m<> 
50 04 AC 00 OOA 107 mov | (ap),r 
04 OOAC 108 ret 
QOAD 109 ; ; 
0000 OQOAD 110 -entry pesh jnnrRep .“nc> 
50 04 AC 01 3 QOAF 111 subl3 1,4¢ap),r0 
4 Q00B4 1 ret 
0B5 113; : 
0000 OOBS 114 entry pasSimmSuCC, “m<> 


eee... 


p-- —---_ ---- ------ - ee 
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| 50 04 AC 01 C1 00B7 115 addi3#1,4(ap),r0 Syn 
4 QO0BC a ret — 
08D 117; 
0000 OOBD 118 -entry passimadod “m<> 
| 50 04 AC 01 00 EF OOBE 119 extzv.  #0,#1,4(aps ,r 0 
4 00CS5 120 ret PAS 
00C6 121 ; 
0000 O00C6' 1 § entry pas$SNGL,“m<> 
50 04 BC 76 b0¢8 1 cvtdf aa ap),rd 
046 OO0CC 124 ret 
OOCD 125; 
0000 Reed 1 § -entry <4 P*8 pe pecans Mains PAS 
50 04 8C DO OOCF 1 mov | 4(ap),r0 
03 50 1F E1 00D3 128 bbc #31,r0,10$ 
50 50 CE 00D7 193 mnegt r0,r0 
04 OODA 130 108: ret 
000DB 131; 
0000 00DB 136 entry pas$refABSreal,“m<> 
50 04 8C 50 OQODD 13 movf 4(ap).r 
0350 OF €1 QOE1 134 bbc #15,70,10$ 
50 50 52 OOES 135 mnegf r0,r0 PAS 
04 OOE8 136 10$: ret 
QOE9 =137; PAS 
0000 O0E9 138 eentry pevire serine. eo 
50 04 8C 04 8C CS OOEB 139 mul 3 4(ap),a4(ap),r0 PAS 
04 OOF1 140 ret PAS 
OOF2 141; PAS 
0000 OOF2 142 sentry poveretreerest, 
50 0486 04 B8C 45 OOFS4 143 mul f3 4(ap),a4(ap),r0 
04 OOFA 144 ret PAS 
OOFB 145 ; PAS 
0000 OOFB 146 entry pas$refORD,“m<> PAS 
50 04 BC DO OOFD 147 movl 4(ap),r0 PAS 
04 0101 148 ret PAS 
0102 149; PAS 
0000 0102 £150 -entry poySretCat Sate PAS 
50 04 8C pO Q104 151 mov l 4(ap),r0 
04 0108 13 ret 
0109 +153; 
0000 0109 154 entry pas$refPRED, “*m<> 
50 048C 01 C3 010B 155 subl3  #1,a4(ap),rO 
04 0110 156 ret PAS 
0111 157; 
0000 0111 #42158 entry pas$refSuCC,“*m<> 
50 04B8C 01 C1 0113 159 addl3-#1,a4(ap). rb 
04 0118 160 ret 
0119 161 ; 
0000 0119 16¢ -entry passre food. ‘ace 
50 04 6C 01 OO EF QO11B 16 extzv 0,#1,a4(ap),r0 
04 Q121 164 ret 
0122 165 .end pas 


o— 


moo Or 


| E 6 
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| MTHSALOS eeeerere x 01 Sym 
MTHSATAN eeereeee X01 — 
MTHSCOS teeeeere =X 4 
MTHSEXP eeeerere xX 01 
MTHSSIN teeeeree X01 
MTHSSQRT eeereere XX 01 
PASSABSDOUB 00000076 RG 01 
PASSALOG Q0000003C RG 01 
PASSATAN 0000004B RG 01 
PASSCOS QOOOOOOF RG 01 
QOOOOOIE RG 01 
PASSIMMABSINT BROR8 SA RG 01 
PASS IMMABSREAL 0000068 RG 01 
PASSIMMCHR QO0000A6 RG 01 
PASSIMMODD 000000BD RG 01 
PASSIMMORD QOOOOO9F RG 01 
PASSIMMPRED QOOOOOAD RG 01 
PASSIMMSQRINT 00000084 RG 01 
PASSIMMSQRREAL 00000080 RG 01 
PAS U 00000085 RG 01 
PASSREFABSINT OO0O000CD RG 01 
PASSREFABSREAL Q00000DB RG 01 
PASSREF CHR 00000102 RG 01 
PASSREF ODD 00000119 RG 01 
EFORD QOOOOOFB RG 01 
PASSREF PRED 00000109 RG 01 
ASSREF SQRIN OOOO00E9 RG 01 
PASSREFSQRREAL QOQO000F2 RG 01 
PASSREF SUCC 00000111 RG 01 
PASSSIN 00000000 RG 01 
PASSSNGL 000000C6 RG 01 
PAS$SQRDOUB 00000096 RG 01 
PAS$SQRT 0000002D RG 01 
$eewnewwooeonoene + 
! : _Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
»~ OS . 00000000 0.) 0O¢ OQ.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
PASSCODE 00000122 (¢ 290.) O01 ¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC BYTE 
tee eer eee ene eee eee eee eee ee + 
! ; Performance indicators ! 
ERE En eee 
Phase Page faults CPU Time Elapsed Time 
Initialization 36 00:00:00.07 00:00:00.42 
pennene processing 127 BP 288: 8°28 00:00:01.88 
s 1 82 0:00:00.6 00:00:01.21 
Synbol table sort 0 00:00: 8 -9F 89:88: 0.08 
s2 46 0:00:00. 0:00:01.4 
— table output 4 0:00:00.04 Bo BR: 0.04 
Psect synopsis output 2 0:0 338-8} 0:00:00.01 
Cross-reference output 0 00:00:00.00 00:00:00.00 


ER See ee . F 6 


_ PASSRT_FUNC 16=SEP=1984 02:09:38 VAX/VMS Macro v04-00 Page 5 82 
VAX=11"Macro Run Statistics orSEb a1 o8c 3:93:88 PASCAL.SRCJPASRT4.MAR; 1 ae | 
Assembler run totals 300 00:00:01.75  00:00:05.03 Sym 


bytes (8 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space wh egg’ to hold 33 non-local and 5 local symbols. 
165 source Lines were read in Pass 1, producing 89 object records in Pass 2. 
1 page of virtual memory was used to define 1 macro. 


The working set Limit was 900 pages. 
3695 bytes> é : 


Mecro Library name Macros defined 
“S255SDUAZB:(SYSLIBISTARLET.MLB;2 tS “ 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/DISABLE=TRACE/LIS=LIS$:PASRT4/0BJ=OBJ$:PASRT4 MSRC$:PASRT4/UPDATE=(ENH$:PASRT4) 


PAS 
PAS 


PAS 
PAS 
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